home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / DAYWEEK.BAS < prev    next >
BASIC Source File  |  1992-08-09  |  603b  |  24 lines
  1. DECLARE FUNCTION Zeller% (Day%, Month%, Year%)
  2. '
  3. FUNCTION Zeller% (Day%, Month%, Year%) STATIC
  4.   ' Zeller Algorithm : Returns Day of the Week
  5.  
  6.   ' Returns weekday
  7.   ' 0 = sunday ... 6 = saturday
  8.   '
  9.   TmpDay% = Day%
  10.   TmpMonth% = Month%
  11.   TmpYear% = Year%
  12.   '
  13.   IF TmpMonth% > 2 THEN
  14.     TmpMonth% = TmpMonth% - 2
  15.   ELSE
  16.     TmpMonth% = TmpMonth% + 10
  17.     TmpYear% = TmpYear% - 1
  18.   END IF
  19.   Century% = TmpYear% \ 100
  20.   TmpYear% = TmpYear% MOD 100
  21.   Zeller% = (TmpDay% - 1 + ((13 * TmpMonth% - 1) \ 5) + (5 * TmpYear% \ 4) + Century% \ 4 - 2 * Century% + 1) MOD 7
  22.   '
  23. END FUNCTION
  24.